home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Higher Ed / G-M / MacPhaseExtras.sit / MacPhase Extras / Macros / ListWindows.m / ListWindows.m
Encoding:
Text File  |  1994-02-02  |  414 b   |  25 lines  |  [TEXT/DAHN]
  1. macro ListWindows;
  2.  
  3. var
  4.     boolean : empty;
  5.     str255 : next,top,list;
  6.  
  7. begin
  8.     DisposeUnclose;
  9.     list:='Window List'
  10.     NewText(list);
  11.     SelectData(list);
  12.     FrontData(top,'data+text');
  13.     next:=NextData(top,'data+text');
  14.     empty:=CmpStr(next,=,'');
  15.     if(!empty)
  16.         repeat
  17.             writeln(list,next);
  18.             next:=NextData(next,'data+text');
  19.             empty:=CmpStr(next,=,'');
  20.         until(empty);
  21.     elseif
  22.         writeln(list,'No Windows');
  23.     endif;
  24. end;
  25.